frmtest Call status box Form1 Command1 Command2 Pie 1 Command3 Pie 2 Command4 Timer1 Form_Click Form_Load WindowState ScaleWidthu Timer1_Timer ScaleHeight, Minimize+ Height CaptionU Form_Paint< Form_DragDrop( Source4 Form_Resize] Margin CurrentX CurrentYU IconBar Minimized InitIcon IconInit thenCall2 IconPie CenterX CenterY Radius Start EndPt AngStart# AngEnd Form_MouseDown} Buttond Shifts FillColor FillStyle IconInitBar IconInitPie Offset ArcAmount TextColor ForeColor IconPie2 Command1_Click Command2_Clickf Command3_Click IconInitPie2J IconTypeZ IPie> IPie2 Timer1 Interval Enabled FALSE Command4_ClickF Maximized NORMAL Form1 Command1 Visible Command2 Command3 Command4 thenCaptionk elsif frmStat txtBarPct frmTest* txtPicPct8 txtPie1Pct txtPie2Pct IPie1| printer status demonstration Timer1_Timer Create a random percentage Control # of new graphs displayed/demo Command1_Click The next four instructions initialize this versioni of the form demonstration Icon Bar Chart The next instruction IS the only initialization instruction you need to set the status value and display a normal window Initialize the windowt Command2_Click Icon Pie Chart 1 Initialize the windowt Turn on the demo Command3_Click Icon Pie Chart 2 Initialize the windowt Turn on the demo Command4_Click